s" C:/forth/tests1.in" INPUT
s" C:/forth/testsv1.out" OUTPUT

s" Test" SET_KEY_STRING
ENCRYPT_VIGENERE

OUTPUT_CLOSE
INPUT_CLOSE

s" C:/forth/testsv1.out" INPUT
s" C:/forth/testsdv1.out" OUTPUT

DECRYPT_VIGENERE

OUTPUT_CLOSE
INPUT_CLOSE

s" C:/forth/tests2.in" INPUT
s" C:/forth/testsv2.out" OUTPUT

s" Test" SET_KEY_STRING
ENCRYPT_VIGENERE

OUTPUT_CLOSE
INPUT_CLOSE

s" C:/forth/testsv2.out" INPUT
s" C:/forth/testsdv2.out" OUTPUT

DECRYPT_VIGENERE

OUTPUT_CLOSE
INPUT_CLOSE
